home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / buttons.AMOS / buttons.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  36 lines
  1. Rem
  2. Rem A nice little button routine that can be used in any option selecting  
  3. Rem routine. size and shape of the buttons can be easily changed.
  4. Rem David Pickin 
  5. Rem
  6. Screen Open 0,320,256,32,Lowres
  7. Curs Off : Flash Off : Cls 0
  8. Colour 0,$888 : Colour 24,$BBB : Colour 23,$666
  9. Colour 17,$555 : Colour 18,$999 : Colour 19,$BBB : Rem mouse colours
  10. Reserve Zone 4
  11. A1=100 : B1=100 : A2=120 : B2=120 : Set Zone 1,A1,B1 To A2,B2 : Gosub SHADEUP2
  12. A1=150 : B1=100 : A2=170 : B2=120 : Set Zone 2,A1,B1 To A2,B2 : Gosub SHADEUP2
  13. A1=200 : B1=100 : A2=220 : B2=120 : Set Zone 3,A1,B1 To A2,B2 : Gosub SHADEUP2
  14. A1=150 : B1=150 : A2=170 : B2=170 : Set Zone 4,A1,B1 To A2,B2 : Gosub SHADEUP2
  15. A1=0
  16. A:
  17. Repeat 
  18. If Mouse Key=2 Then End 
  19. Until Mouse Key
  20. Z=Mouse Zone
  21. If Z=1 : P1=100 : Q1=100 : P2=120 : Q2=120 : Gosub SHADEDO2 : End If 
  22. If Z=2 : P1=150 : Q1=100 : P2=170 : Q2=120 : Gosub SHADEDO2 : End If 
  23. If Z=3 : P1=200 : Q1=100 : P2=220 : Q2=120 : Gosub SHADEDO2 : End If 
  24. If Z=4 : P1=150 : Q1=150 : P2=170 : Q2=170 : Gosub SHADEDO2 : End If 
  25. Wait 20
  26. Goto A
  27. SHADEUP2:
  28. Ink 24 : Polyline A1,B2 To A1,B1 To A2,B1
  29. Ink 23 : Polyline A2,B1 To A2,B2 To A1,B2
  30. Return 
  31. SHADEDO2:
  32. If A1>0 Then Gosub SHADEUP2
  33. Ink 23 : Polyline P1,Q2 To P1,Q1 To P2,Q1
  34. Ink 24 : Polyline P2,Q1 To P2,Q2 To P1,Q2
  35. A1=P1 : A2=P2 : B1=Q1 : B2=Q2
  36. Return